home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 05 - 1989 / 05.01 Jan 89 / LightTrace / LightTrace.a < prev    next >
Encoding:
Text File  |  1988-09-06  |  497 b   |  26 lines  |  [TEXT/MPS ]
  1.         import    TraceProcTop:CODE    
  2.         import    TraceProcBot:CODE    
  3.  
  4. ReplaceTrap8 proc export
  5.  
  6.     move.l 2(sp),d0                        ;address to RTS to
  7.   lea         @88tmp,a0
  8.     move.l a0,2(sp)                        ;fake address to RTE to
  9.     RTE
  10.  
  11. @88tmp
  12.     move.l  d0,-(sp)                    ;setup stack for rts
  13.     jmp     TraceProcTop(a5)
  14.                 
  15. ReplaceTrap7 proc export
  16.  
  17.     move.l 2(sp),d0                        ;address to RTS to
  18.   lea         @77tmp,a0
  19.     move.l a0,2(sp)                        ;fake address to RTE to
  20.     RTE
  21.  
  22. @77tmp
  23.     move.l  d0,-(sp)                    ;setup stack for rts
  24.     jmp     TraceProcBot(a5)
  25.                 
  26.     end